PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 
PPP PPP 
PPP PPP 


PPP PPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


tt tt ot st tt Ht 4 St St Ht Ht Ht SH Ht 

AAAs tH HS HH 

A a A A A tH tt 
AAAAAAOOOAAMAAOO 
AAQMAAAAOAOAMAAAOAO 
NOAAMAAAAAAAAAOOO 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


| 
ed 


1 10 


*eF ILE®*]De*PATIHD 


r-¥-¥-1-1-1-1-1-1-7- 
286060606600 

aa 2° 
aa y+ 4 
aa +4 
aa 22 
ea r+ 
ea y+ 
2282Q200000000065 
22886666606086 
=zxzzxrrxrrrxrxrxrII. 
EEETTTTETTTITT 

= 

== 

x= 

x= 

x= 
xzexrrrrrTITrerIII:T 
ZETTTTITITITIII. 
oe 


olen ae 
dd Od Od Od nd nd Od Og ng eg Oh 
Oe ed ad at nd Od Od td dg 
akan — 
wens en 


ee 
ee 


222222222222 


$2322222222224 
sees P 
tf # 


eeeSaaeaaces 


LLLLLELLLL 
LLLLLLLLLL 


ooo 
sooo 


MPR 2 2 2 2 oo 


| 
5 
5 


NOUS WN $0 ODBNOAOUES WN S(O OONOULSUUN —O 


SSSSsSssssssooocoscosooooees 365 
AA AA NAW AIP PIPPIN NONNUNYDD 2 2 9 POO ae oe 


i 
COONS 


ss 
—_ 


fwn—-OC0e 


Serrrrrrrrre 


S 


MIVA 
a a a a a De a ae ee a ed dd ad nd od = td od = SOOO OOOO 


. 
* 
. 
. 
7 
oe 
. 
* 
. 
o 
. 
a 
. 
o 
. 
° 
. 
. 
. 
*° 
. 
* 
. 
o 
. 
. 
~ 
. 
. 
* 
. 
° 
. 
. 
. 
. 
o 
. 
. 
. 
a 
. 
. 
° 
. 
a 
2 
~ 
am 
. 
° 
. 
o 
. 
° 
. 
. 
o 
. 
a 
. 
. 
_ 
7 
o 
. 
. 
. 
a 
7 
’ 
. 
* 
~ 
. 
° 
. 
° 
. 
o 
. 
e 
. 
2 
. 
o 
oO 
* 
. 
. 
° 
7 
. 
. 
° 
- 
. 
~ 
oe 
7 
. 
7 
os 
° 
e 
. 
. 
+ 
° 


NOUS WN —OOOnOu 


o 


10 
1b-Sen-1984 00:18:38 VAX-11 Bliss-32_ V4.0-742 


4 Page 
DISKSVMSMASTER: CPATCH.SRCIJPATIHD.B32; (1 


MODULE PATIHD “a EQ. 1 ! ROUTINES TO HANDLE IMAGE HEADER AND SECTIO 


ADDRESSING _MODE (EXTERNAL = LONG_RELATIVE, 
NONEXTERNAL = LONG_RELATIVE), 


FI 
DENT = *v04=-000" 


eee 


BEGIN 


' 
Lae eR eA ARAERARARA RARER RA TEER AE TEE EEE AERA ARERREREREREEREEEEEEEE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i# ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AN 
ONL ACCORDANCE WITH MS OF SUCH LICENSE AND 
't INCLUSION OF THE ABOVE Spit hd NOTICE. a SOFTWARE OR poe 


} L 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
* 
a 
* 
® 
® 
t 
Wy 
ie TRANSFERRED. . 
= 
® 
we 
ft 
® 
® 
* 
® 
® 
® 


COPIED 
TH_ THE 
THER 


=~ 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 

'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRR eRe RARER AREA AAEAAA REAR AAA EERE AEA EAEEEE 


tee 
FACILITY: PATCH 


ABSTRACT: ROUTINES TO HANDLE IMAGE HEADER DATA AND CREATE AND MAP IMAGE SECTIONS. 
ENVIRONMENT: PART OF IMAGE FILE PATCH UTILITY 

AUTHOR: K.D. MORSE . CREATION DATE: 11-OCT-77 

! MODIFIED BY: 

v03-005 MCNO157 Maria del C. Nasr 22-Feb-1984 


Use image activation routines to qet image header and 
image section descriptors, instead of reading blocks 


directly. 

v03-004 MCNO148 Maria del C. Nasr 6-Feb-1984 
Supply channel number address to LIBS_CREMAPSEC when 
doing a@ PATCH/ABSOLUTE/NONEW_VERSION. In that way, 
the Tile is only opened once. 


v03-003 MTROO25 Mike Rhodes Gaus tees 
Add new routine BUILD_IHD to support the /ABSOLUTE feature. 
The /ABSOLUTE feature allows a user to patch ANY file via 


v04=000 | 113 2:58:33 SESeSUMSMASTERsCPATCH.SACIPATIND.832¢1°" (15 


absolute (virtual) location values. 


| 
—— 


Ooo 
oumw 


v03-002 ho» hay 29-0¢ t-1982 
dify PATSGET_ Ath Ay aye ‘the image type identifier word 
lLobal Scalar PAT GW_IMGTYP (later restored by 


inv gte, MG). 


v03-001 MTROO Mike Verdun 1982 
Use - g system me seoess A ted orexte 
DYNMEM, PATBAS.§ PATCMD. " , PATIHD 2! wate B32 
PATIO.8 + ATHAL BS , PATMSG.MSG, PATWRT.B32, and PATSPA.832. 


The shared messages are defined by DYNMEM.B32's invocation of | 
SHRMSG. REQ and we simply Link against these symbols. They are 
declared as external erals below. 


v02-008 MTROOO1 Mike Rhodes 14-0¢t-1981 
Modify routine PATSERERAP to tet .— create ane map 

sees ion pas service to do expand reayen nape! ng 

0 


RES Reett 


VFN CO OONOUE WNC OONOu 


Add require statement for Pi Bs:PATDEF REQ 


02 Od CD CD CD CD CD. NN NN NNN NINO AOA AAAOAAOQOUM 
} tet te} tet oper PN RPS A Se Oe ee 4 
iii ak a a od 8 8 od 8 8 2 od 4 = 


Bor within PO space. This eliminates PATCH's trying 
07 remember the Last 7: ed address and getting errors 
it due to stepping on RMS buffers in PO. 

008 VO2-007 KDM0044 Kathleen D. Morse 03-MAR-1981 
008 Reformat some comment Lines. 

sit v02-006 PCG0001 Peter George 02-FEB-1981 
00. 

00 
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PATSGB_OLDNAME, ! OLD IMAGE FILE NAME 

PATSGL-OLDFAB: BLOCK( BYTE), i FAB FOR INPUT IMAGE FILE 

PATSGL“OLDNBK: BLOCK .BYTE), i NAME BLOCK FOR INPUT IMAGE FILE 

PATSGL“OLDRAB: BLOCK( BYTE), i RAB FOR INPUT IMAGE FILE 

PATSGL-JNLRAB: BLOCKE BYTE), i RAB FOR JOURNAL FIL 

PATSGW-IMGTYP: WORD; i IMAGE TYPE IDENTIFIER 


EXTERNAL ROUTINE 


WONAUVLS WN —O0On~n 


DD_PAL ! ADD PATCH AREA TO LIST 
PATSBUICD ISE, i BUILD AN IMAGE SECTION ENTRY AND ASSOC. IS 
FAO_POT, ! FORMATS OUTPUT MESSAGE 
PATSWRITEFILE, ' WRITES OUTPUT MESSAGE TO A FILE 
LLOBLK, ! ALLOCATES BLOCK OF FREE MEMORY 
GETFILDSC ' Returns the address of a file name descrip 
IMGSDECODE_ IHD : ADDRESSING_MODE (GENERAL), ! Gets image header 
IMGSGET_NEXT_ISD : ADDRESSING MODE (GENERAL), ! Gets image section desc 
LIBS_CREMAPSEC; ' CREATES AND MAPS SECTIONS 


EXTERNAL LITERAL 
Define shared message references. (resolved @ Link time) 


PAT$_CLOSEIN 
PAT$_ CLOSEOUT, 
P NIN 


PAT$-OPENOUT, 


Error closing input file. 
Error closing output file. 
Error opening input file. 
Error opening output file. 
Error reading from file. 


WN SO CONOUSWN—O0OOnN 


PAT$~SYSERROR, System Service error. 
PATS_WRITEERR; Error writing to file. 

' 

OWN STORAGE: 

OWN 
BLKBUF: BLOCK (512,BYTE], ! Buffer where image blocks are read into 
CURISD: REF pie ditt ! Current image section descriptor (ISD) 
INPBUF: REF BLOCKC,BYTE] INITIAL(PATSGB_INPBUF); ' Input buffer (used by IHD and ISD) 

BIND 


! VALUE OF MAJOR IDENT ABLE TO PATCH 
! MINIMUM VALUE OF MINOR IDENT ABLE TO PATCH 
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| 
; 47 1214 MAP 
H rk i 12 PATSGL_IMGHDR : REF BLOCKC,BYTE); ! REFERENCE IMAGE HEADER AS A BLOCK | 
: 250 1519 LOCAL 
2 2) 1218 ALIAS_ADR, | 
: 1219 ALLOCSIZE, ! SIZE OF IMAGE HEADER TO ALLOCATE 
H 2g 1220 DESPTR ! DESTINATION STRING POINTER 
; 54 1 A ECO_PTR : REF BITVECTOR, ! POINTER TO ECO LEVEL BITS 
; 55 1 ¢ ECO BIT, ! ECO BIT LEVEL COUNTER 
: 256 1 § HDRVER_ADR, | 
3: gor 1224 ISD_ADR, ' ADDR OF DECODED ISD 
3 $28 1225 ISEADR: REF BLOCKC,BYTE), ' CONTAINS ADDRESS OF IMAGE SECTION ENTRY | 
: 59 1226 NXTPTR ! STRING POINTER TO NEXT PART OF RECORD 
; 260 1207 OUT_BUFFER : VECTORCTTY_OUT_WIDTH,BYTE), i OUTPUT MESSAGE BUFFER 
s ¢6) 1228 SRCPTR, !' SOURCE STRING POINTER 
; $06 1568 2 VBN_ADR; ! Image header VBN 
; Sei 153) '+4 
; $e? 1$36 ; INITIALIZE THE IMAGE SECTION TABLE LIST HEAD. 
: 267 1234 2 PATSGL_ISELHD=0; ! SET END OF TABLE 
; 268 1235 2 PATSGL-ISETAIL=0; i SET TAIL OF TABLE 
Ho BBE 
: $f \Se6 § INITIALIZE MAXIMUM NEW FILE VIRTUAL PAGE AND BLOCK NUMBERS. 
; $78 1240 g PATSGL_NEWVBNMX = 0; 
: ge 1g6) PATSGL_NEWVPNMX = 0; | 
: 276 1243 : ! Read the first block of the image header and store the data. If we are 
; 277 1244 2 ! patching the file in absolute mode, create a phony image header and ISD's 
; 278 1245 2 ! for mapping. Otherwise, get the real image header. 
SB 
; 381 1248 § If PATSGL_FLAGS CPATSS_ABSOLUTE] 
; 285 1250 5 cL SeOUILD= IHD ¢-INPBUF) | 
: 385 1238 5 IF NOT (PATS$GL_ERRCODE = IMGSDECODE_IHD ( -PATSGL CHANUM, 
. once Ne 
RG NSHVER Ao 
; 231 1388 : eit ALIAS_ADR $) 
; $95 1260 g SIGNAL (PATS_READERR,1,GETFILDSC(PATSGL_OLDFAB), .PATSGL_ERRCODE 0); 
Bo bl. 
; 4 1368 CHECK THAT THE PATCH UTILITY UNDERSTANDS THIS TYPE OF IMAGE HEADER, 
; 238 1265 Lf INPBUF CIHDSW_MAJORID3 NEQU .MAJOR_IDENT 
: 00 1569 SIGNAL (PATS BADIDENT,2,1DENT_ SIZE, INPBUFCIHDS$W_MAJORIDJ); 
; Bf 1268 aed IHD$W_MINORID) Lssu -MINOR_IDENT | 
: 08 1270 SIGNAL (PAT$_BADIDENT,2, 1DENT_SIZE, INPBUFCIHD$W_MINORID]); | 
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04 
i 
0 


Store the none header for future use. The buffer will be pointed to 
by PATSGL_IMGHDR. 


io 


' 

i ' 
07 ' 

If there is no patch section in the header, then enlarge it to include one. 

ALLOCSIZE=, INPBUF CIHD$SW tt ! ASSUME HEADER IS CORRECT SIZE 

IF, INPBUF CIHDSW_PATCHOFF Eai 0 


ALLOCSIZE=.ALLOCSIZE + IHPSK_LENGTH; 


m 
- 
“ 
m 


PATSGL_IHPPTR=CHSPTR(.PATSGL_IMGHDR, .PATSGL_IMGHDRLIHDSW_PATCHOFF J); 
PATSGL_PATAREA = CHSPTR(PATSGL_IHPPTRCIHP$L_RW_PATSIZ] ,0); ! SET POINTER TO PATCH AREA DESCRIPTOR 
PATS$GL~ERRCODE=$GETTIM(TIMADR=PATSGL_IHPPTRLIHPSQ_PATDATE]); | ' SET LATEST PATCH DATE 
IF NOT .PATSGL_ERRCODE 


SIGNAL (PAT$_SYSERROR 0, .PATSGL_ERRCODE) ; ! REPORT ERROR 
| 


7 
7 
7 
7 
08 7 
09 7 
10 7 
: | 
i | 
15 8 PATSALLOBLK( .ALLOCSIZE ,PATSGL_IMGHDR) ; ! ALLOCATE STORAGE FOR IMAGE HEADER 
16 SRCPTR=CHS$PTR(. INPBUF 0); ' SET POINTER TO INPUT DATA 
17 8 DESPTR=CHSPTR(.PATSGL_IMGHDR,0); ' SET POINTER TO HEADER STORAGE | 
318 8 CHSMOVE (. INPBUF CIHD$W-SIZEJ,.SRCPTR, .DESPTR); ! STORE HEADER DATA 
312 3 PATSGW_IMGTYP = .ALIAS_ADR; ! SAVE THE IMAGE TYPE IDENTIFIER 
321 8 IF_.PATSGL_IMGHDRCIHDS$W_PATCHOFF] EQL 0 ' IF THERE WAS NO PATCH SECTION 
35§ : THEN asain ! THEN 
352 9 PATSGL_IMGHDRCIHD$W_PATCHOFFJ=.PATSGL_IMGHDRCIHD$W_SIZEJ; ! SET OFFSET TO PATCH SECTION 
325 9 PATSGL_IMGHDRCIHD$W-SIZEJ=.PATSGL_IMGADRCIHDSW SIZE] + IHPSK_LENGTH; ! INCREMENT SIZE OF HEADER | 
326 9 PAT SSL LPP TRE CHEE TRC PATSEL INGHOR, .PATSGL_IMGHDREIHD$W_PATCHOFF I); 
37 9 PATSGL~1HPPTREIHPSL_ECO1J=0; '7ERO THE ECO LEVEL BITS | 
328 9 PATSGL_IHPPTR THPSL ECOG 1=0; ' ZERO THE ECO LEVEL BITS 
329 9 PATSGL_IHPPTRCIHP$L_ECO3J=0; ! ZERO THE ECO LEVEL BITS | 
330 Sg PATSGL_IHPPTRCIHPS$L_ECO4J=0; ! ZERO THE ECO LEVEL BITS 
331 9 PAT$GL_IHPPTR “RW_PATADRJ=0; ' SET NO READ-WRITE PATCH AREA 
332 9 PATS$GL_IHPPTRLIHPSL_RW_PATSIZJ=0; ' SET NO READ-WRITE PATCH AREA 
333 0 PAT$GL_IHPPTRCIHPS$L_RO_PATADRJ=0; ! SET NO READ-ONLY PATCH AREA 
334 0 7 TRCIHP$L_RO-PATSIZJ=0; ! SET NO READ-ONLY PATCH AREA 
$32 4 PATSSL INP TR IHPSL_PATCOMTXTJ=0; ! SET NO PA 
3 0 
3 0 
3 0 
3 
3 
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tae 


'e4¢ 
: WRITE OUT PATCH TIME TO JOURNAL FILE. 


PATSCP_OUT_STR = CHSPTR(OUT_BUFFER,O); 

PAT$GL-BUF-SI7Z = 0; | 
PAT$FAO_PUT(TIME_STR, PATSGL_IHPPTRCIHP$Q_PATDATE)); 

PATSWRITEFILE(.PATS$GL_BUF_SIZ, CHSPTR(OUT-BUFFER, 05, PATSGL_JNLRAB); | 


'¢ 


1 
NOW OUTPUT THE ECO LEVELS SET TO THE JOURNAL FILE. 


ECO_PTR = CHSPTR(PATSGL_IHPPTRCIHPSL_ECO1], 0); 
PATSCP_OUT_STR = CHSPTRTOUT_BUFFER,O); 

PATSGL~BUF~51Z = 0; 

INCR ECO_SIT FROM PATSK_MIN_ECO-1 TO PATSK_MAX_ECO-1 BY 1 
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fee CoO Sack ea 


PA’ 


<< 
2 


; 1328 3 DO | : 
; 1 BEGIN ; 
: 1330 IF .ECO_PTRC.ECO_BIT) ; 
8 1331 THEN $ 
; ‘ ¢ 4 BEGIN : 
; 1 4 IF .PATSGL_BUF_S1Z GEQ TTY_OUT_WIDTH-6 : 
3 1334 4 THEN : 
3 1335 5 BEGIN ; 
; 1 6 PATSWRITEFILE(.PATSGL_BUF_SI2-2, CHSPTR(OUT_BUFFER, 0), PAT$GL_JNLRAB); ; 
; 1 PATSCP_OUT_STR = CHSPTR (ODT BUFFER,0); ; 
: 38 3 PATSGL “BUF "SIZ = 0; ; 
: 1340 4 IF -PATSEL bur _SIZ EQL 0 ; 
: 37% 1341 4 THEN : 
: 1 4g 4 ATSFAO_PUT(ECO_MSG_STR); ; 
: 376 1343 4 PATSFAO_ PUT CEC LVL_STR; .E€CO_BIT+1); ; 
; i 1308 3 END 8: 
: 379 1346 1 .PATSGL_BUF_SIZ NEQ 0 3 
: 381 1348 ATSWRITEFILE(.PATSGL BUF SIZ~2, CHSPTR(OUT BUFFER, 0), PATSGL_JNLRAB) ; : 
3 366 1ee7 PATSWRITEFILECO. CHSPTR (OUT _BOFFER, 0), PATS$GL_JNLRAB); ' OUTPOT BLANK LINE : 
: 384 1351 2 t+ : 
; 385 135¢ iN NOW PLACE THE DEFAULT PATCH AREA AS THE FIRST ENTRY ON THE PATCH AREA LIST. : 
: 387 1354 5 PATSADD_PAL(. PATSGL. IHPPTRCIHPSL_RW_PATADRI, : 
> 388 1355 2 “PATS$GL~IHPPTREIHP$L_~RW-PATADR1+.PATSGL_IHPPTRLIHPSL_RW_PATSIZ), : 
; $58 1328 2 PAL$K oABD _PAREA); : 
: 391 1358 3 1++ : 
: 39 1359 2: FIND THE BOTTOM OF THE PATCH CODE AND INITIALIZE THE CURRENT ISD ADDRESS IN : 
: 393 1360 & HE IMAGE HEADER RECORD TO GET READY FOR IMAGE SECTION PROCESSING. 
; 395 P 136¢ PATSGL_ERRCODE=SEXPREG( PAGCNT=1 ; 
: 39% 136 , RETADR=PATSGL_ISVADDR); | FIND BOTTOM OF PATCH CODE ; 
; 4 1364 3 IF NOT .PATSGL_ERRCODE : 
: 399 1366 2 SIGNAL (PAT$_SYSERROR,0,.PATSGL_ERRCODE); ' REPORT ERROR : 
; 400 1367 2 PATSGL_EXPANDVA = .PATS$GL_ISVADDRLSTART OFF J; ' REMEMBER FIRST EXPAND ADDRESS ; 
: 401 1368 2 PAT$GL~ISVADDRCEND. OFF J=.PATSGL_ISVADDRESTART_OFF] - 1; i SET NEXT ADDRESS FOR CREMAP TO MAP OVER 3 
: 403 1370 1e¢ ; 
3; 404 133) i Now process every image section descriptor from the image header when 3 
; ret ' Le ! not in absolute mode. : 
: 407 1392 iF NOT .PATSGL_FLAGS CPAT$S_ABSOLUTE) : 
: 009 1398 § Meccan | : 
> 410 1399 : 
> 411 1378 CAL | : 
: le 19 ALLOC_SIZE; ! SIZE OF ISE TO ALLOCATE | ; 
Py | e 
: 616 1381 WHILE 1 DO F 
iis ines al 
: 417 13p2 4 PATSGL_ERRCODE = IMGSGET_NEXT_ISD ( .PATSGL_CHANUM, | : 
| 


11 | 
PATIHD rhage -1984 VAX-11 Bliss-32 V4.0-742 9) 
v04=000 14- ~be- 198 99: 48: 8 DISKSVMSMASTER: CPATCH.SRCJPATIHD. B32. 79 * (3), 
; rt 1385 4 BLKBUF 3 
: 41 1 6 4 .PATS$GL_IMGHDR, ; 
: 620 1 4 VBN_ADR> | : 
: 421 1 88 4 NXTPTR, | : 
: 4 é 1389 4 PATS$GB_INPBUF, | : 
: 4 1390 4 HDRVER-ADR ); | : 
> 624 1391 4 : 
; 4 5 36 4 IF NOT .PAT$GL_ERRCODE | 3 
: 4 ? 34 4 IF .PAT$GL_ERRCODE EQL IMG$_ENDOFHDR | ; 
i 499 1396 4 EXITLOOP | 
: 4 1 98 4 SIGNAL (PATS_READERR,1,GETFILDSC(PATSGL_OLDFAB) , .PATSGL_ERRCODE,0); ; 
; 4 4 1400 4 CURISD=. INPBUF ! SET CURRENT ISD ADDRESS ; 
; 4 4 1401 4 ALLOC_SIZE = -tURISDCISDSW _SIZE] + ISESC_SIZE; i SET SIZE OF ISE ; 
: 436 1208 4 IF .CURISDCISD$V_DZROJ ; 
: 437 1404 4 THEN : 
; 438 1405 4 ie ALLOC_SIZE = .ALLOC_SIZE + A_QUADWORD; ! ADD IN EXTRA SPACE FOR VBN AND IDENT 3 
: 640 1407 4 i eeeeee THIS CHECK IS A FUTURE FEATURE WHICH WILL INSURE SPACE FOR AN IDENT : 
: 641 1408 4 i weeeee LONGWORD IN ANY PROCESS PRIVATE IMAGE SECTION DESCRIPTOR. : 
: 442 1409 4 i eeeeee THIS WILL ENABLE PATCH TO CREATE AN IDENT FOR A PROCESS : 
> 643 1410 4 i weeeee PRIVATE IMAGE SECTION, WHICH WILL PROBABLY BE NECESSARY WHEN : 
; 44h 1411 4 | seeee® GLOBAL SECTIONS ARE PATCHED AND BECOME PRIVATE SECTIONS. 
: 446 1418 4 If PATSK_LENPRIV NEQ ISDS$K_LENPRIV | CHECK IF LENGTH INCLUDES IDENT 
; 448 1415 4 * pores SIZE] EQL I1SD$K_LENPRIV ' CHECK IF THIS IS PROCESS PRIVATE ISD 
: 450 1417 4 LLOC ite. s -ALLOC_SIZE + A_LONGWORD; ! ADD IN IDENT LENGTH 
: 451 1418 4 PATSALLOBLK(. aoc SIZE, ISEADR); i GET IMAGE SECTION ENTRY 
: 452 1419 4 DESPTR=CHSPTR(. ISEADR, 1SE$C_SIZE); i SET DESTINATION POINTER 
; 433 1420 4 CHSMOVE (. CURISOLT SDS *S12E),.INPBUF, .DESPTR); i MOVE IN ISD 
: 455 1422 4 IF .PATSGL_ISETAIL EQLA 0 ! IF FIRST ENTRY 
> 456 1423 4 THEN 
: 657 1424 5 BEGIN 
: 458 1425 5 PATS$GL_ISELHD=CHSPTR(.ISEADR, 0); ! SET TABLE LIST HEAD 
> 459 1426 5 PATSGL ISETAIL=CHSPTR(.ISEADR, 05; i SET TABLE TAIL 
: 460 1427 5 END 
: 661 14 ; 4 ELSE 
; 46¢ 1429 § BEGIN 
> 46 1430 § PATSGL_ISETAILCISESL_NXTISEJ=CHSPTR(.ISEADR, 0); ! SET LINK TO THIS ISE 
; 464 1431 3 PATSGL_ISETAIL=CHSPTR(.ISEADR, 0); ''SET NEW TAIL OF TABLE 
: 466 1238 ¢ ISEADR 1SESL NxTISE}=0: ' SET FORWARD LINK 
+ 467 1434 4 ISEADRCISESL—IMGVSTJ=.CURISDLISDS i SET STARTING IMAGE VIRTUAL ADDRESS 
: 668 1435 4 ISEADRCISESL~IMGVENDJ=(.CURISDLISOSV_VPGJ+.CURISDCISD$W_PAGCNT])*9 - 1; ! SET EN DING IMAGE VIRTUAL A 
+ 669 1436 4 ISEADR ISESL-MAPVST=0; ' SET NO START MAPPED A DRESS 
: 470 1437 4 ISEADRCISES$L MAPVEND J=0; i SET NO ENDING MAPPED ADDRESS 
F 471 1438 4 1 CURISDLISD $B_TYPE] NEQ ISD$K_USRSTACK 
: 47 1440 4 IF .PATSGL_NEWVPNMX LSSU .CURISDCISD$V_vPG) ! SEE IF LARGER VPN 
: 67 1441 4 THEN 


PATIHD 

V04=000 

; 475 1442 4 
: 4? 1443 4 
: 47 1444 4 
: 478 1445 4 
: 479 144g 4 
: 480 1447 4 
: 481 1468 

: 48 144 

: 48 1450 

: 484 1451 1 


50 20 46 4F 20 45 30 


54 45 53 20 53 4C 45 


END; 
PA Tse > ALDVBNMX 
END; 


54 
09 


45 
00 
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.PATSGL_NEWVBNMX ; 


Non WS 

aco ru 

foLforuco 
AOOnNo@aloo 
MmOofLoL foo 
MOWOWOO 
NOLOUFS UW 
Oo fS &— 
OW FSS 
UP Woo 


- CURISDCISD$L_VBNJ 
= .CURISDCISDSL_VBN] + .CURISDCISD$W_PAGCNT] = 1; 


a 1:58:38 DiSksumsmaS tens cha cn.SRcJPATIMD.83274 


PATSGL_NEWVPNMX = .CURISDCISDSV_VPG] +.CURISDCISD$W_PAGCNT] = 1; 
ca” * . CURISDCISD$V_DZROJ ! IF NOT DE 


-PATSGL_NEWVBNMX LSS 
PATSGL_NEWVBNMX 


H AND ZERO 
! THEN CHECK IF LARGER VBN 


! REMEMBER OLD FILE MAX ISD VBN USED 
i END OF PATSGET_IHD 
eTITLE PATIHD 
IDENT \V04-000\ 
.PSECT _PATSPLIT,NOWRT,NOEXE ,0 
sASCII \02\<0><0> 
ASCII \01\<0><0> 
“ASCII <24>\DATE/TIME OF PATCH: \<9><9>\!2\ 
eASCII \D\<0><0><0> 
“ASCII <17>\ECO LEVELS SET:\<9><9><0><0> 
eASCII <5>\!UL, \<0><0> 
.PSECT _PATSOWN,NOEXE,2 
: .BLKB 512 
*BLKB 
“ADDRESS PAT$GB_INPBUF 
ZE== 20 
7E== 4 
7E== 16 
7E== 9 
7E== 24 
ENT= P.AAA 
ENT= P.AAB 
= P-AAC 
G_STR= “AAD 
L~STR= P.AAE 
.EXTRN PATSGL_IHPPTR, PATSCP_OUT_STR 
-EXTRN PATSGL~BUF_SI2, PATSGC_CHANUM 
SEXTRN PATSGL~EXPANDVA 
“EXTRN PATSGL-PATAREA, PATSGL_ERRCODE 
*EXTRN PATSGL~ “FLAGS, PATSGL_ISVADDR 
ZEXTRN PATSGB-INPBUF, PATSGC_IMGHDR 
TEXTRN PATSGLISELHD, PATSGL—ISETAIL 
“EXTRN PATSGL—NEWVPNMX 
EXTRN PATSGL—~NEWVBNM 
XTRN PATSGL-OLDVBNM 
XTRN PAT$GB-OLDNAME, PATSGL_OLDFAB 


PATSGL-JNLRAB, PATSGW~ IMG 
pATSApe PAL, PATSBUILD_ISE 


4 


OFFC 00000 


58 00000000G EF 9E O08 

oA rr EF 9E 0000 
SE FF6 CE 9E pate 

45454544 EF D4 0001 
Q000000G EF 04 00018 

Q0000000G EF 04 00021 
000000006 Fr D4 00027 
0B 00000000G_ EF 6 €1 B38 ) 
6A DD 00035 
00000000V_ EF 01 FB Boner 
4A 11 QO03E 
5E 0D 00040 
08 AE 9F 4983 

10 AE 9F 0004 
18 AE OF Bpbee 
000000006 EF 9F 00048 

FDOFC CA 9F 00051 

000000006 EF DD 00055 
000000006 7 fe 0058 
68 0 OD BRee 

22 50 £8 0006 
7E 04 00068 
6B DD 0006A 

000000006 EF 9F Snes 
00000000G_ EF 1 FB 000 § 
0 odd 0007 
01 Dd 00078 
000000006 8F dD pore 

000000006 00 05 fe 008 
50 6A 00 0008A 
00000000° EF Oc Ad 10 00 fe Bee 
14 9 
Oc AO OF 99 

02 OD 9C 
DD 3 

00608164 F OD BSA 
000000006 98 04 F A6 
0 6A D AD 
00000000" EF OE a0 10 90 ) 80 
4 iE BA 

OE AO 9F BC 

DD F 

DD C1 
00608164 F 0D bce 

000000006 00 4 FB 000C 


1$: 


2$: 


3$: 


CALLS 


VAX-11 Bliss-32 V4.0-742 Pag 
DISKSVMSMASTER: CPATCH.SRCJPATIHD.B32; 1 
PATSALLOBLK, GETFILDSC 
IMGSDECODE fHD, IMGSGET_NEXT_ISD 
LIB$_CREMAPSEC, PATS CLOSEIN 
bats “CLOSEOUT, PAT$_OPENIN 
PATS- “OPENOUT Pats READERR 
ATS"SYSERROR, PATS _WRITEERR 
SySSCETTIM, RYSSEXPREG 
_PATSCODE ,NOWRT,2 
PATSGET_IHD, Save R2,R3.R4,R5,R6,R7,R8,R9,- 
R10,R11 
PATSGL _ERRCODE, R11 
INPBUE R1 
=152(SP) 
PATSGL_ISELHD 
PATSGL_ISETAIL 
PAT$GL—~NEWVBNMX 


GLINEW 
PATSOL “heer 
PATSGL. FLAGS, 1$ 


tN B 
#1, BUILD_IHD 
2s 
SP 
HDRVER_ADR 
NXTPTR 
VBN_ADR 
stag INPBUF 
PATSGL CHANUM 
#7, TMGSDECODE_IHD 
RO, PATSGL_ERRCODE 
RO es 


P) 
PATSGL ~ERRCODE 
pares, L-OLDF AB 
 GETFILDSC 


#1 
sPATS READERR 
LTB$SIGNAL 
rf UF, R 
#0, #16, 12(RO), 
(RO) 
® 


MAJOR_IDENT 


#7176548 

#4, LIBSSIGNAL 
INPBUF 

#0, #16, 14(RO), 
4$ 

14(RO) 

# 


MINOR_IDENT 


#7176548 
#4, LIBSSIGNAL 
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SS em 7 


H 11 
-Sep- 212: -11 Bliss-32 V4.0-742 Page 12 
Y04 000 12-808 -1 3b 99:33:33 WTEC SVMGMASTERSCEAT CH. SACIPATIND.B3204 (3) 
: MOV INPBUF, RO : 1277 
29 $6 BP oe si MOV SUL (RO), ALLOCSIZE ; 
08 nD 7 D6 ist ROS ; 1278 
51 Ti 4 ADDL2 #44, ALLOCSIZE ; 1280 
000000006 i oF OODE 5$: PUSHAB mloestie : 12 
000000006 gf G2 FB opoee = CALLS HB, PaTSALLoBLK a. 
; 000000006 EF 2009 MOVL PATSGL »IMGHDR, R7 + 1284 
38 ‘ TR) + 1285 
6 60 00 BA FA MOVC3 @INPBUF, (SRCPTR), (DESP : 
000000006 EF a oF : aa mow ALIAS _ADR, PATSGW_IMGTYP ; 1386 
2a 1 $108 BNEQ 6$ F a 
08 a7 67 48 00108 OVW  (R7), 8(R7) : 
7 2 AO 0010F ADDW2 #44, (R7) 3 1938 
4 08 <5 3¢ 09119 MOVZWL BCR?) , De soot + 129 
) neste: HA 000000006 HY 50 OO11e ae BATSCL. IHPPTRG"RO + 1294 
£0 it $8 ? att aeRO) + 1296 
i 00 Fe 0012A CLRQ 16(RO) : 99 
ye ean aE CHR S3¢ROD : 1300 
- bc rt $01 g BRB 7$ : 1288 
1 
50 08 A? 3C 00135 6$ MOVZWL B(R7), RO ; 
IHPPTR é 
000000006 EF 57 50 C1 00139 ADDL3 RO, R?, PATSGL : poe 
vosoonone FE Sovvaeaee so $8lsy 7% ABBEY BAG: Bardetcdtpprn: SRSt-PATA a 
, SYS$GETTI ; 
eon: 69 ) 0 Eta moot 4 Shiscr ERRCODE >= 
1 6B €8 0015F BLBS § PATSGL_ERRTODE, 8$ : 1309 
68 DD 00162 PUSHL  PATSGL~ERRCODE ; 
006 BF bb O06 cet BPATS. SYSERROR : 
000000006 : 
NAL é 
Soospo0Ke EF Ae oe 8193 8$: MOVAB bot Ptah PATSCP_OUT_STR > 1316 
eenepetnd 10 00 ef d4 00178 CLRL.  PATSGL_BUF SIZ : 1317 
eauneeun: 4 C1 00181 ADDL3 #36, PATSGC_IHPPTR, -(SP) : 1318 
a ooewemen: Se 00000000" EF 9F S89 PUSHAB TIME ¥ ; 
00000000G_ EF 2 FB 0018F CALLS 3 PATSFAO_ PUT 3 1319 
000000006 FF SF oolee PUSHAB  PATSGL  JNLRAB 
000000006 EF DD 8195 PUSHL PATSGL_BUF SIZ ; 
000000006 EF 3 FB OOIAS CALLS #3, PATSWRITEFILE Some 
5S 000000006 EF a 1A VL. - PATSGL_IHPPTR, ECO_PTR : 
000000006 EF 14 AE BF O13 MOVAB T BUFFER, PATS$CP~OUT_STR ; 13 ? 
000000006 ? pd 0188 cLRL PATSGL BUF _SIZ 1396 
3 E1 001C3 9$ BBC ECO"BIT, (ECO_PTR), 12% : 
” 0000007€ $i 000000006 f DI ole? CMPL PATSGL_6UF_SIZ, #106 ; 1333 
0 EF 9F 00104 PUSHAB PATS$GL_JNLRAB ; 1336 | 
poaweeese AE 9F OOIDA PUSHAB OUT BUFFER : | 
7E 0006 EF ; C3 0010 SUBL3 He. PATSCL BUF _SIZ, -(SP) ; 
atdaittds EF 8 FB ibs CALLS #3. PATSWRITEFILE ; | 


"1 
b-e0-1984 93518: 8y  UIKSUMGRASTERSEPAT ON SACIPATIND.B3200°° <4 


1 
1 
¢ MOVAB OUT BUFFER, PATSCP_OUT_STR 
A 


v 
Pad 


vB 


#3, LIBSSIGNAL 
14$:  MOVL  PATSGL_ISVADDR, PATSGL_EXPANDVA 
SUBL3 #1, PATSGL_ISVADDR, PATSGL_ISVADDR+4 
BBC a6, PATSGL-FLAGS, 16$ 


PUSHAB HDRVER_ADR 
PUSHAB PAT$GB~INPBUF 
NXTPTR 


00 

0000000G EF 00000000G EF 
000000006 ff 00000000G_ EF 
3 00000000G_ EF 


—— 
ow 
Pe 
i] 
» 
< 


04 
eosseerse EF 


18 PUSHAB VBN_ADR 
000000006 PUSHL PATSGL_IMGHDR 1386 
FOFC PUSHAB BLKBUF 1384 
000000006 PUSHL PATS$GL — 
000000006 00 CALLS #7, IMGSGET_NEXT_ISD 


MOVL RO, PATSGL_ERRCOBE 


RO, 
CMPL RO, #139298368 


CLRL = (SP) 


RO 
PUSHAB PATSGL_OLD 
CALLS Hu GETFIL 


PUSHL # 


000000006 AB 


F 
DSC 


BeBe h hy iae SAREE § 4d Pad BR ea nahin ee Naan 


00000000G_ EF 


000000006 EF 16 AE oF 1€ 1 : 
900000006 EF D4 OOF CLRL PATSGL_BUF SIZ + 133 ; 

6 FF b3 1fFA 108:  TSTL PATSGLBUFTSIZ +1 ; 

D 1 BNE £ : ; 

00000000' FF OF PUSHAB EC _MSG : ; 

00000000G_ EF 1 FB CALLS i PATSFAO_PUT : $ 
01 A2 9F F 11$:  PUSHAB 1(ECO BIT) + 1343 ; 

00000000" EF 9F 00 : PUSHAB ECO_LVL_STR : : 

000000006 EF 2 Fe 0 CALLS #2, PATSFAO_PUT : ; 
9C : 9000007 F F3 O021F 12$:  AOBLEQ #127, ECO BIT, 9$ : 1327 : 
00000006 FF 06 0227 MOVE PATSGL_BUF_SIZ, RO + 1346 ; 

000000096 EF i o 5 PUSHAB PATSGL_JNLRAB + 1348 : 

FE nS 9F 00 § PUSHAB <2(RO) : $ 

000000006 EF 03 FB 00 ¢ c CALLS #3, PATSWRITEFILE : : 
000000006 EF 9F 00243 13%: | PUSHAB PATS$GL_JNLRAB + 1349 ; 

A SL GERGE RIMS SUT FUER : : 

000000006 EF 03 FB 00 E CALLS #3, PATSWRITEFILE © ees ; 
50 000000006 EF 00 00257 MOVL_ PATSGL_IHPPTR, RO + 1355 F 

7E 16 AO 10 AQ ci 00 E ADDLS 16(RO), 20(ROS, =(SP) pow ; 
000000006 EF 93 FB 00 7 CALLS #3, PATSADD_PAL Fis 3 
000000006 FF OF 00 5 PUSHAB PATSGL_ISVADDR ; ; 

1 DD 00276 PUSHL #1 : ; 

000000006 00 04 FB 99 5 CALLS #4, SYSSEXPREG : : 
68 0 D0 027F MOVL RO, PAT$GL_ERRCODE : ; 

1 6B £8 00 : BLBS §PATSGL_ERRTODE, 14$ + 1364 F 

68 DD 00 PUSHL PATSGL-ERRCODE + 1366 : 

7E 04 00287 CLRL (SP) : : 

000000006 8F DD 00 9 PUSHL #PAT$_SYSERROR ; ; 

00000006 03 FB O0028F CALLS F ; 
DO 00296 ; ; 

C3 O02A1 3 PF 

Bi BsAp ; § 

1 00285 : 5 

s 88 : 7 

oF bose: 3 3 

9F 002C4 ; : 

BD Best? Z F 

F D F : 

DD 00201 : 3 

FB 00207 : 3 

DO 002DE 3 g 

Fe Osea : ; 

13 002EB 3 3 

D4 002ED ; : 

BD poset 3 3 

F 1 : : 

Bp 5 tf : : 

PP 00800 3 3 


—O—- MOMDOOCON > MMM 
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1 VAX-11 Bliss-32 V4.0-742 Page \é | 
1 DISKSVMSMASTER:CPATCH. SRCJPATIHD.B32; (3) | 
| 
000000006 BF DD PUSHL #PATS$_READERR ; | 
000000006 00 BE a a8 CALLS #5, LIBSSIGNAL 3 
FC OAA 6A D fF 17$: MOVL NPBUF , cURISD > 1400 | 
: FC AA p 13 ME RISD, R + 1401) 
0 1 MOVZWL (RO), ALLOC_SIZE : 
9 . & 1A ADDL2 #20, ALLOC, SIZE 3 
03 08 A 6 E 1 BBC » B(RO), + 1403 
5 CO ADDL2 #8. ALLOC.SIZE + 1405 
10 8] 18$: CHP (RO), #16 + 1415 
59 4 cb A ADDL2 #4, ALLOC_SIZE : 1417 | 
10 AE OF 19$:  PUSHAB ISEADR + 1418 
59 0D PUSHL ALLOC SIZE ; 
000000006 EF 02 FB 0 CALLS #2, PRTSALLOBLK : 
: 10 A p MOVL 13 ADR, R + 1419 
36 4 =A 033p MOVAB 20(R8). DESPTR : 
FC AA B 0341 MOVL CURIS R : 1420 
66 00 BA 67 0345 MOVC3 (R7), @INPBUF, (DESPTR) : 
0 000000006 i i 0 aA OV PATSGL_ISETAIL, RO + 1422 
000000006 EF : D0 00353 MOVL R8, PATSGL_ISELHD + 1425 
0 11 0035A BRB 218 + 1422 
60 B DO 0035c 08: MOVL 8, (RO) + 1430 
000000006 EF 58 DO 0035F 21$:  MOVL RB, PATSGL_ISETAIL : 1426 
68 D4 00366 CLRL = (R + 1433 
50 046 A? 17 00 EF 00368 EXTZV #0, #23, 4(R7), RO + 1434 
04 As 50 09 78 O36E ASHL * RO, 4(R8) : 
51 06 A? 17 00 EF 0037 EXTZV #0. #23, 4(R7), R1 + 1435 
50 02 a? 3¢ 00379 MOVZWL 2(R7), RO ; 
51 50 ¢0 0370 ADDL2 RO, ; 
50 51 09 0380 SHL #9. R1, RO ; 
08 AB FF AO 9E 00384 V -1(R0), 8(R8) ; 
0c A8 7C€ 00389 CLRQ. ss: 12¢ 8) + 1436 
FD oF 0B A? 91 0038C CMPB  =s-«11(R}7), #253 : 1438 
14 13 00391 BEQL F 
000000006 EF 04 A? 17 00 ED 0 93 cMPZV 40, #23, 4(R7), PATSGL_NEWVPNMX + 1440 
000000006 _ EF FF OA 9 039F VAB =1(R1), PATSGL_NEWVPNMi + 144 
18 08 A7 02 £0 003A7 22$: BBS 7), 23$ + 144 
0C a7 000000006 Ff Dt 0 AC cMPL PATSGL_NEWVENMX. 12(R7) > 1445 
28 02 A? 3C 00386 MOVZWL (R7), RO : 1447 
? 0 OC AZ C1 OO3BA ADDL3 12(R7$, RO, R7 : 
000000006 EF FF rene H 0 Bf - MOVAB -1(R7), PATSGL_NEWVBNMX pe 
000000006 EF 000000006 EF BO 90 cA si: MOVL PATSGL_NEWVBNMX, PATSGL_OLDVBNMX : 1430 


3; Routine Size: 982 bytes, Routine Base: _PATSCODE + 0000 


; 485 1452 1 


af ea a oe 


K 11 
16-Sep-1984 00:12: VAX-11 Bliss-32 V4.0-742 Page 15 
build_ihd == Build a phony image header for the 19-808- 1382 90:15:38 DISKSVMSMASTER:CPATCH. SRCJPATIHD.B32:1> (4) 


; 


z3 
és 


Feed 


TSBTTL ‘build_ihd == Build a Poy image header for the input file’ | 
ROUTINE build_Thd (header_addr) : NOVALUE = 
| 
| 


$3) Functional Description: 
49 This routine will build a hoy image header for the input file 
494 being patched. Thus allowing PATCH to map the input file as if 
495 it were an image. The side effect of this will be that almost 
$38 all PATCH commands will function as usual and the entry and 
3 display modes will operate normally. 
£39 We compute the number of ISDs required to map the vague file and 
00 build the ISDs pointing to the various sections of the file. 
01 This is done by sg bs SGETJPI1 to determine how many PTEs are 
0 available for mapping he input file, ad usting by a fudge factor 
(the ISE/ISDs take up VM too), and finally arriving at our result 
by dividing the file size by the number of available PTEs. 
Inputs: 
| 
header_addr addr.rl The address of the buffer to write the 


phony ‘image’ header. 
Implicit Inputs: 


pat$gl_iselhd addr.ml The address of the image section entry 
pat$gl_isetail addr.mi List head and tail (both 0 on entry!). 
pat$gl_oldfab addr.rl The address of the input files FAB. 


The image header offsets and associted ‘default’ values. 
zoe Se character used to pad out the remainder of the image 
eader. 


Outputs: 


The header will be written into the output buffer. 
The ISDs have been created and written following the header. 


Implicit Outputs: 


pat$gl_iselhd addr.ml The addresses of the first and last | 
pat$gl_isetail addr.ml entries in the image section List. | 
| 
| 


The fields in the phony image header will be adjusted as we 
create the necessary mapping information in the ISE List. 


Routine Value: 
None, yet. 

Side Effects: 
None, yet. 


DOSOOO 0000 OOO OO O00 09.00 00.60 00 69.00 00 09 INI NINN NINN NINA AAAAAAAAOD 
SSSREV SSS CSAI BB SSS SFR SSS SRN SSS SSSR SSS 
PN Ot kt ee a at es sd 2 4 9 st tt ae a ss 


a a ed a dd 
MAMAN BEBE EEE EEE EEE PEPE PEPE PPP PPP PPP PPP EEE EEE 


ooo 
oo 


—> —S 2» _» —4 _» _» _» do _» 
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UEWUN OO ODONA NEAR @OOODNAOUE WT 


ARUN SOBA IN ODOUR ARUN OO Ow ARUN 


SRALSLESELSE 


oo 
@ 
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11 
18-Sep-19 
build_ihd -- Build a phony image header for the 14-Sep-19 


BIND 
block_count = pat$gl_oldfab Cfab$l_alq]; 


LITERAL 
false = 0, true = 1, 
fill = 2x'FF'; 


LOCAL 
current_ise : REF $bblock, 
current_isd : REF S$bblock, 
freptecnt : INITIAL (0), 
page_count, 


tatus, 
Jpilist : $bblock C12] INITIAL ( 
WORD (4, jpi$_freptecnt), 
LONG (freptecnt, 0)); 
P 
header_addr : REF $bblock; 


IF NOT (status = SGETJPI (ITMLST = jpilist)) 
THEN SIGNAL (pat$_syserror, 0, .status); 


freptecnt = .freptecnt / 2; 
page_count = MINU (.block_count, .freptecnt); 


CHSFILL (fill 


a_page, .header_addr); 
header_addr CihdSw_size) = a_page; 
header_addr Lihd$w_activoff] = 0; 
header_addr Cihd$w_symdbgoff] = 0; 
header_addr Cihd$w_imgidoff] = 0; 
header_addr CLihd$w_patchoff] = 0; 
header_addr Cihd$w_majorid] = ihd$k_majorid; 
header_addr Lihd$w_minorid) = ihd$k_minorid; 
header_addr Lihd$b_hdrblkcnt] = 1; 
header_addr Cihd$b_imgtype] = ihdSk_exe; 
header_addr Lihd$w_iochancnt] = 0; 
header_addr Cihd$Sw_imgiocnt] = 0; 
header_addr Cihd$l_in ges = Q; 
header_addr Cihd$l_ident] = 0; 
header_addr Cihd$l_sysver] = 0; 
header_addr Cihd$l_iafva] = 0; 


'¢ 
! We will always need at least one ISE/ISD. 


¢ MBi58:38  DaSSunsmastenschatcn 


! Boolean operands. 
Fill 


7% p 
reac IPATIND.B32047" 


Number of blocks in the input file. 


value for the remainder of the header block. 


Pointer to current ISE/ISD block. 

The address of the ISD we are curcontty working on 
Number of PTEs available for mapping VM in this pr 
Number of pages mapped by each ISD. 

Local status scalar. 

The item List for the SGETJPI system service. 
Buffer size and item code (free pte count) 

The buffer and return addresses. 


Get the number of free PTEs for mapping the input 
Signal system service errors. 


Reduce availabte page count by 50%. 
Determine the number of pages mapped by each ISD. 


Initialize the contents of the header. 
Size of ‘image’ header in bytes. 
Offset to the ‘image’ activation data. 
Offset to the 9gbue symbol table data. 
Bi ieet to the ident data. 


Number of blocks making up the ‘image’ header. 
Image type. 

# of requested I0 channels (0 is default). 

# of pages of image 10 section requested (0 is def 
Linker produced image flags (defaulted). 

Global section ident for linkable images. 

System Version (0 default NOT Linked with exec). 
Relative virtual address of image activator fixup 


It is created here to initialize the ISE List 


! thus allowing routine pat$build_ise to perform the routine task of creating normal image 
! section descriptors. It will be called iteratively below to create enough ISDs to map 


the input file. 

patSalloblk (ise$c_size+isd$k_lenpriv, current_ise); 
current_ise seep nxt tees = 0; 

current_ise CLise$l_imgvst] = 0; 

current_ise Cise$l_imgvend) = (.page_count*ta_page)-1; 
current_ise Cise$l_mapvst] = 8: 

current_ise Cise$l_mapvend] = ; 

current_isd = .current_ise + ise$c_size; 


Allocate a block of storage for the ISE/ISD. 
Address of the next ISE List entry. 

Starting virtual address of the section. 
Ending virtual address of the section. 


Mapped starting address of this seg tion. 


Mapped enetng address of this section. , 
Compute starting address of the ISD for this ISE. 


SII 
OOOO ODO WWW WOOOO NINN NNN NINO OO 


FWD OC OONAUE WO CONAUE WOO 


—> a os ts a a — bd — 2 = = Ls bs — bd 9s 9) 2 ts 1 ss 
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16-Sep-1984 00:12: VAX-11 Bliss-32 V4.0-742 Page 17 
build_ihd == Build a phony image header for the 13-388-1382 99:15:38 DISKSVMSMAS TER: CPATCH, SRCIPATIHD.B32; 1° (4) 
7 current_isd Cisd$w_size] = isd$k_lenpriv; ! Size of the ISD in bytes for a GLOBAL ISD. 
current_isd Lisd$w_pagcnt] = page_count; '¢@ pages described by this ISD. 
current_isd Lisd$l_vpnpfcJ = 6; VPN and PFC fields. 


current_isd Lisd$l_flags] = 3 
current_isd Lisd$v_crfj = true; 


Flags and ISD Type. 
copy on Reference. 


current_isd Lisd$v_wrtl] = true; Writable section... 
current_isd Lisd$v_matchctl] = isd$k_matnev; Match control. 

current_isd isdsb_typed = isd$k_normal; Normal image section. 
current_isd Lisd$l_vbnJ = 1; ! Base virtual block number. 


IF .pat$gl_iselhd EQL 0 If this is the first entry in the list, make 
THEN pat$gl_iselhd = pat$gl_isetail = .current_ise; ! it appear at the head and tail of the list. 


‘4 
Now iteratively create enough ISE/ISDs to map the entire input file. 


INCR current_vpn FROM .page_count TO .block count - 1 BY .page_count 
pat$build_ise (current_ise, .current_vpn, .current_vpn + 1, .page_count); 
current_ise Cise$l_imgvst] = .current_vpn * 9.Page: ! Set the tn teh and ending virtua 
current_ise Cise$l_imgvend] = .current_ise Cise$ _imgvst) + (.page_count * a_page) - 1; ! for the se 
pat$gl_newvpnmx = .current_vpn; ! Update the max ay - eaten 


ae ee nmx = .current_vpn + 1; ! Likewise with the e 

ND; ! of INCR 

pat$gl_oldvbnmx = .pat$gl_newvbnmx; ! Set the highest VBN for the old fi 
END; ! of ROUTINE build_ihd 


-PSECT _PATSPLIT,NOWRT,NOEXE,0 


0415 0004 00040 P.AAF: .WORD 4, 1045 : 
00000000 00000000 00044 -LONG 0, 0 : 


~-EXTRN SYSS$GETJPI 
-PSECT _PATSCODE,NOWRT 2 
O7FC 00000 BUILD_IHD: 


WORD Save R2,R3.R4,R5,R6,R7.R8,R9,R10 > 1454 
5A 000000006 EF 9€ 00002 MOVAB PATS$GL_NEWVBNMX, R10 ; 
59 990000006 EF 9€ 90009 MOVAB PATSGL-ISELHD, R9 : 
58 000000006: ‘EF i 019 MOV BLOCK COUNT, R8 : 
5E 10 ¢ 9001 SUBL 16, SP : 
7E D4 O01 CLRL FREPTECNT + 1509 
08 AE 00000000" EF OC 28 0 IC MOVC3 #12, P.AAF, JPILIST + 1526 
OC AE 6 E 000 MOVAB FREPTECNT, JPILIST+4 : 1509 
E 7C 00029 CLRQ = = (SP) > 1531 
7E D4 B CLRL = (SP) : 
146 AE OF PUSHAB JPILIST ; 
7E 7C CLRQ = =( SP) F 
43 p&4 000 CLRL = = (SP) ; 
000000006 00 Fe 0034 CALLS #7, SYSS$GETJPI ; 
11 0 E8 00038 LBS. = STATUS, 1$ : 
DD 0003 PUSHL STATUS : 1532 
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build _ihd == Build a phony image header 


000000006 
000000006 00 


So 
~ 


Oo 
™~™ 


ONNM—-OWOOO 
SOLO O@OFEO 


01 
10 
04 


04 
FF 


01 


1 
for the 1 


04 4 
DD 4 
F 4 
C GF 
D 3 
i $3 
98 90084 
bP 0060 
C Bpee 
x Hes 
04 44 
B4 0007 
4 0007 
8 Bp bbe 
C 00086 
7C 00089 
04 0008C 
SF OO08F 
DD 4953 
FB 00094 
DO 00098 
7C QO09F 
78 QOOA1 
9E OO0AS 
7C OOOAA 
9E OOOAD 
BO 00081 
4 00084 
C 00088 
88 00088 
FO OOOBF 
94 000C5 
DO 000C8 
D5 OOOCC 
is OOOCE 
00 00000 
0° 00007 
C3 OOODA 
DO OOODE 
a. 43 
Be 
DD OO0E8 
OF OOOEA 
F OOED 
p OOF4 
OOF8 
gl OOFD 
5 9at0e 
01 
3 01 
C 011 
D1 0011 
15 00118 


2$: 


3$: 


4$: 


5$: 


12:58:38 DEkSUNSMASTERsCPATCH. SAC 


YS ROR 
$5 
REPT 
OUNT, RO 
; ck Cou NT 
FREPTECNT RO 
PAGE_COUNT 


HEADER_ADDR, R7 
hgh (SP), #255, #512, (R7) 


ER 
IGNA 
ECNT 
NT, 
EC 


12(R7) 


RBOSWWVRBBOLS RB 
wc 


oe PATSALLOBLE 
CURRENT WISE, R1 


(R 
#9, PAGE COUNT, R4 
-1(R4), B(R1) 


CURRENT_ISD 
EURRENT_ISD) 
OUNT Gt ISD) 


2=—-BBelvUsnr— 
“PS ON — 
~~ ONDA nam- 2° 


Dwv 
—AyY 


, PATSGL_ISETAIL 
RI PATS$GL~ISELHD 

BLOCK COUNT, R3 
pie EOUNT. CURRENT_VPN 


TCCURRENT VPN) 


CURR _VPN 
RRENT “ISE 

fe PATSBUILD SE 

cu URREN ISE, 


ae ayPNe 4 (RO) 
tg 
CURRENE oPn PATSGL_NEWVPNMX 
1 (CUR REAT | VPN) 
PAGE COUNT ‘ CURR 
CURRENT _ VPN 


JPATIHD.B3204%" (45 


etd ad et edd ed 
PAA DIDATISIT 
AUMLlLLrow 
ONONVMWNO® 


lee ” picheanats 
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3; Routine Size: 


; 629 


VAX-11 Bliss-32 V4.0-742 Pp 


12 
build ihd == Build a phony image header for the 1B-Fe0-1984 99:15:38 DISKSVMSMASTER:CPATCH.SRCIJPATIHD.B32; 


290 bytes, 


1595 1 


00000000G_ EF 


Routine Base: 


oN ee Oolet 
_PATSCODE + 0306 


MOVL 
RET 


PATSGL_NEWVBNMX, PATS$GL_OLDVBNMX 


99e 


04-00 Bo 92:58:38 DISKSVMSHASTERSCPATCH.SRCIPATIND.B32;1°" (3). 


v04-000 PATSCREMAP == MAP SECTIONS -Sep- 

3 631 1596 1 XSBTTL '‘PATSCREMAP <= MAP SECTIONS’ : 
; 6 é 3 GLOBAL ROUTINE PATSCREMAP(ISEADR) :NOVALUE = ! CREATES AND MAPS AN IMAGE SECTION | 
: 634 1599 1 144 | : 
; é 5 1600 i FUNCTIONAL DESCRIPTION: ; 
: 637 160¢ ii THIS ROUTINE CREATES AND MAPS IMAGE SECTIONS. ALL SECTIONS | F 
> 638 1603 1: ARE MAPPED WRITABLE. GLOBAL SECTIONS WHICH MUST ALWAYS BE : 
: 639 1604 1 OBTAINED EXTERNALLY, WILL NOT BE MAPPED (AS PATCH HAS NO WAY TO : 
> 640 1605 1! OBTAIN THEM) AND INSTEAD, AN ERROR IS REPORT | : 
> 641 1606 1 1S A LOCAL COPY OF THE GLOBAL SECTION, THEN THAT WILL BE PATCHED | : 
; 4g 1eo7 1 | NO MATTER WHAT THE MATCH CONTROL FIELD CONTAINS. | : 
: 644 1609 ; THE IMAGE SECTION DESCRIBING THE STACK MAY NOT BE PATCHED. i 
: 646 1611 ; THE IMAGE SECTION ENTRY IS UPDATED TO CONTAIN THE MAPPED VIRTUAL ADDRESSES. 3 
; 648 1618 ! THE SECTION IS MAPPED INTO THE FIRST AVAILABLE ADDRESSES IN PO SPACE. | : 
: 650 1615 1! FORMAL PARAMETERS: | 

> 651 1616 1/3 

3 636 1elf : CURISE = ADDRESS OF IMAGE SECTION ENTRY TO BE MAPPED 

: 654 1619 1! IMPLICIT INPUTS: | 

: 655 1620 1 | 

: 656 1621 1 i THE OLD IMAGE FILE HAS BEEN SET UP FOR INPUT. | 

> 657 16 é 1 | 

: 658 1623. 1! IMPLICIT OUTPUTS: 

> 659 1626 1: 

; 660 1625 THE IMAGE SECTION IS MAPPED AND THE IMAGE SECTION ENTRY UPDATED. | 

; 66¢ 1858 1 | ROUTINE VALUE: 

; 66 1628 1! 

> 664 1689 1 | COMPLETION CODES: 

> 665 1630 1! | 

> 666 1631 1! NONE | 

> 667 1638 1: 

> 668 1633 1! SIDE EFFECTS: 

> 669 1634 1! 

: 670 1635 1! ERROR MESSAGE IS REPORTED IF UNABLE TO MAP OR MAP FAILS. 

; 671 1636 1! IMAGE SECTION IS MAPPED. 

: 672 1637 1! 

: 673 1638 1 i-- 

> 67% 1639 1 

: 675 1640 2 BEGIN 

> 676 1641 

: 677 1648 LOCA 

: 678 164 IMG_FIL_DESC: VECTORE2, ONG), | TEMPORARY IMAGE FILE NAME DESCRIPTOR 

; 678 1644 aa CURTSD: REF BLOCKL,BYTEJ; i CONTAINS ADDRESS OF ISD PART OF ISE | 

; 681 1646 ISEADR: REF BLOCKC,BYTE); ! CONTAINS ADDRESS OF IMAGE SECTION ENTRY | 

: 68 1648 5 tes | 

3 one + 634 5 SET UP THE VIRTUAL PAGES TO MAP IMAGE SECTION TO. | 

: 686 1651 5 CURISD=.ISEADR + ISESC SIZE; ' SET ADDRESS OF ISD PART OF ISE 

; 687 1652 2 PATSGL_ISVADDRCSTART_OFFJ= 200; i START MAPPING AT FISRT AVAILABLE ADDRESS 1 


END 


e+ 


! IF NOT DEMAND ZERO, THEN CHECK FOR A GLOBAL SECTION THAT HAS NO LOCAL COPY. 
ELSE 
BEGIN 
IF, CURISDCISDSV.GBL ! IF IT IS GLOBAL 
IF (-CURISDCISDSL_VBN] EQL 0) ' AND DOES NOT HAVE A LOCAL COPY 


WWINIWIRIPINININININININID 2 2 2 SO Se 


SIGNAL (PATS _GBLONLY,1,CURISDCISDST_GBLNAM)); ! THEN REPORT ERROR AND UNWIND/EXIT 
PATSGL_ERRCODE=$CRMPSC( IRADR= ATSGL ! CREATE AND MAP_IMAGE S N 
RETADR=ISEADRCISESL_MAPVST] ! RETURNED MAP STAR AND END ADDRESSES 
= SO$L_VENJ CK ADDRESS OF FIRST BLOCK TO MAP 
M_EXPREG) ! READ/WRITE 


.*s s+ &* & 
< 
wo 
z 
' 
. 
oO 

-cuno 
P-) 
- 
“” 
oO 
qf 
as 
x 


w 
oO 


> 12 | 
PATIHD 16-Sep-1984 00:12: VAX=11 Bliss-32 V4.0-742 Page 21. PAI 
04-000 PATSCREMAP <= MAP SECTIONS 13-88-1382 00:45:38 DISKSVMSMASTER:CPATCH.SRCIJPATIHD.B32:1> (3) vOé 
6 3 33 PATSGL_ISVADDRCEND_OFFJ= 200; ! MAP AS MUCH AS NEEDED (.CURISDCISD$W_PAGCN | 
690 ee ING FIL _DESCEOI= PATSGL OLDNBKCNAM$B_RSLJ; ' SET LENGTH OF NAME 
631 28 IMG_F IL-DESCC1J=PATSGB_OLDNAME ; ! SET ADDRESS OF NAME 
69 58 le¢ 
$38 23 : CHECK FOR STACK IMAGE SECTION DESCRIPTOR. 
$36 6] if -CURISDCISDSB_TYPE] EQL ISD$K_USRSTACK 
o98 es SIGNAL (PAT$_NOACCESS); ' REPORT ERROR 
$30 65 144 
01 66 : CHECK FOR DEMAND ZERO IMAGE SECTIONS. 
70 68 if .CURISDCISD$V_DZROJ 
704 69 TPEN 
705 70 BEGIN 
706 71 ' PATS$GL_ERRCODE=$CRMPSC( INADR=PATSGL JSVABOR ' CREATE AND MAP IMAGE SECTION 
707 i ' , RETADR=ISEADRLISESL_MAPVST] |! RETURNED MAP START AND END ADDRESSES 
708 7 ' » FLAGS=(SEC$M_DZRO OR SECSM_WRT OR SECSM_CRF OR SECSM_EXPREG) ! READ/WRITE 
709 74 ' , CHAN=.PATSGL tte Mires. STV] ! CHANNEL NUMBE 
710 75 ' , PAGCNT=.CURISDCISDS$W_PAGCATJ); | NUMBER OF PAGES TO MAP 
76 PAT$GL_ERRCODE=LIBS_CREMAPSEC( PATSGL_ISVADDR 
77 . ISEABRCISESL_MAPVST 
A ° {SECSA_DZRO OR SECSM_WRT OR SECSM_CRF OR SECSM_EXPREG) 
80 ; 0 
81 , IMG_FIL_DESC 
5 > gf URISOLSDSu_pAGCNT) 
84 IF NOT .PAT$GL_ERRCODE sate 
36 SIGNAL (PAT$_SYSERROR,O, .PATSGL_ERRCODE) ; ! REPORT ERROR 
88 
89 
90 
9] 
35 
94 
95 
96 
97 
98 
99 
00 
4 
08 
04 
5 


SN GN NS NNN SNS SSS 


$ C 
CHAN= PATSOL OLDE AREF AL Sty) ' CHANNE 


: L_ NUMBER 
. PAGCNT=.CURISDCISD$W_PAGCRT]); ! NUMBER OF PAGES TO MAP 


aehubababababahebabadbadbaabaabed datababababuaa ita adabababaiabhbababababbababababehbabuiababababababababa atau 
SNS SNS AAA AAA AAA AAA AA AAA AAA AA AAAAAAAAAASAAAA AAA AAOAA AAO 


Be Be Oe Be Oe Se Oe Be Oe Be Be BH Ge SH Se BH Se Se Ge FH FE Se He SHH Se Se Be Se OF oe Oe Se Oe Se Se Se Se SESE SESH Se SESH Ss SHS SHS HSH Se Ge SH esas 
ie Oe Be Oe Be Oe Oe Be Oe Be Oe Be Oe Se Se Se Se Se Se Se Se Se Sse Se SH Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Sse Se SH Se Sess Se se Seas 


PANNA ANNAN FE WAIN AA ANA NAANANNAAI EA 


40 0 

741 06 PATSGL_ERRCODE=LIB$_CREMAPSEC( PATSGL ISVADDR, 

74 0 ISEADRCISESL RAPVST 

74 08 .PATSGL_FCAGS CPAT$S_ABSOLUTE] AND NOT .PATSGL_FLAGS CPATS$S_NEW_VERSIONJ 
74 09 THEN (SECSM_WRT OR SECSM_EXPREG) 


] 
16-Sep-1984 00:15:38 VAX-11 Bliss-32 V4.0-742 2 


. 4 Page 
PATSCREMAP <= MAP SECTIONS -Sep-19 DISKSVMSMASTER=CPATCH, SRCIPATIHD.B32:1> 3 


1719 ELSE (SECSM_WRT OR SECSM_CRF OR SECSM_EXPREG), 
ie 6° 

748 171 IMG_FIL DESC, 

749 1714 « CURT SRE LSD SN _PAGCNTI. 

73) 1013 gcuRiso ISD$L_VBNJ, 

7 ¢ 1713 If .PATSGL_FLAGS CPAT$S_ABSOLUTE] AND NOT .PATSGL_FLAGS CPATSS_NEW_VERSION 

fe 1718 THEN PATSGL_CHANUM) ; 

754 1719 

755 1720 

£28 1721 IF NOT .PAT$GL_ERRCODE 

7 17 ¢ THEN 

758 17 SIGNAL (PAT$_SYSERROR,O, .PATSGL_ERRCODE) ; ! REPORT ERROR 

759 1724 RETURN ! RETURN ALWAYS SUCCESSFULLY 

760 1725 END; 

761 1726 

roe 1727 ++ 

oo? 1768 : UPDATE THE LAST MAPPED ADDRESSES IN PO. 

765 1750 PATSGL_ISVADDR CSTART_OFF] = .ISEADR CISESL_MAPVST); 

166 173] PATSGL_ISVADDR CEND_OFF] = .ISEADR CISESL_MAPVEND); 
; 768 1338 1 END; ! END OF PATMAP 
; INFO#212 L1:1717 


; Null expression appears in value-required context 


Be Oe Oe Oe Oe Be Be Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Ge Se Se Ge Ge Se Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se se Se Se Se seas 


0O3FC 00000 -ENTRY PATSCREMAP, Save R2,R3,R4,R5,R6,R7,R8,R9 ; 1597 
59 000000006 8F D0 00002 MOVL #PAT$_SYSERROR, R9 : 
58 000000006 EF 9 00009 MOVAB LIB$_CREMAPS : 
2, Goppoobee 8D 9 DONT? Rovas Parse [Acs f 
55 000000006 EF 9E O001E MOVAB PATSGL_ISVADDR, R5 ; 
34 000000006 f ee 00 5 NOVA PATSGLTERRCODE. RG ; 
2f 04 AC DO 0002F MOVL I EADP + 1651 
32 146 A3 9E 00033 0(R3), CU ; 
6 C8 BF 9A 00037 MOVZBL #200, PATSGL_ISVADDR : 1652 
04 AS C8 «8F 9A 0003 MOVZBL #200, PAT$GL~ISVADDR+4 > 165 
7E 000000006 EF 9A 0004 MOVZBL PATS$GL_OLDNBR+3, DESC > 1655 
04 AE 00000000G EF 9E 4 MOV PATS$GB OLDNANE IMG_FIL_BESC+4 : 1656 
FD BF 0B A2 91 D004 CMPB =: 11 (CURTSD), #253 > 1661 | 
09 12 0094 BNEQ 1 ; 
O06D80FA BF DD 00 6 PUSHL #7176442 > 1663 
66 01 FB 0005C¢ CALLS #1, L1BSS1GNAL : 
2A 08 A2 02 E1 O00S5F 18: BC #2. S(CURISD), 2% > 1668 
; 4 00064 CLRL = = (§P) : 1677 
7E 02 A2 3C 00066 MOVZWL 2(CURISD), -(SP) : 168¢ 
08 AE OF O06, PUSHAB IMG_FIL_DESC > 167 
7E 7C 060 CLROQ tia : 
000200pE ee OP boots pusiie 1SeRes : 1878 
88 Bb 0078 ia” as : eae 


; Routine Size: 251 bytes, Routine Base: _PATSCODE + 04F8 


F 12 
PATIHD 16-Sep-1984 00:12: VAX-11 Bliss-32 V4.0-742 3 
V04=000 PATSCREMAP <= MAP SECTIONS er een Tee ois ee re WOMASTERcCEAT ON SACIPATIND.832¢4°° R 

68 08 F 7A CALLS #8, LIB$_CREMAPSEC : 1677, 
64 D 7D MOVL RO. PATS$GL_ERRCODE : 
3 64 € BLBS § PATSGL_ERRTODE, 8$ + 1684 | 
64 DD 000 PUSHL PATSGL~ERRCODE + 1686 
D4 0 LRL. = (SP) : | 
59 DD PUSHL R9 : | 
66 03 FB 00089 CALLS #3, LIBSSIGNAL : 
68 11 0008C BRB $ : 1668, 
13 08 ag ES OOOBE 2S: BLBC (CURISD), 3$ + 1694 
Oc AZ 03 000 TSTL (CURISDS > 1696 | 

OF 12 0009 BNEO : 
14 A2 9F 00097 PUSHAB 20(CURISD) : 1698, 

OT DD 0009A PUSHL : 

006D8068 8F DD 0009 PUSHL 176296 ; 

ry. 03 FB OOOA CALLS iS, LIBSSIGNA : 

OF 67 06 FI OOAS 3S: BBC PATS$GL FLAGS, 4$ + 1717 
67 95 000A9 TSTB eatse GL_FLAGS 3 | 
0B 19 OOOAB BLSS 4$ : 

50 000000006 EF 9E OO00AD MOVAB PATSGL_CHANUM, RO ; | 
0 DD 00084 PUSHL RO ; 

Q2 11 0008 BRB 5 : | 
E D4 00088 4$ CLRL =(SP) : 

7E D4 OOOBA 5$ CLRL = + 1707 

0c A2 DD 000BC PUSHL 12(C + 1715 

7E 02 A2 3C OOOBF MOVZWL 2(CURISD), -(SP) + 1714 

10 AE 9F 000C3 PUSHAB IMG_FIL_DESC : 1707) 

7E 7C 000C6 CLRQ = =(SP) : 

0c 67 06 Fi 000¢8 BBC #6 PATSGL FLAGS, 6$ : 1708 
67 95 000CC TSTB — PATSGL_FLAGS ; 

08 19 O0GcE BLSS 6 : 
00020008 8F DD 000D PUSHL $§ 1080 : 1709 
06 11 00006 BRB : 
0002000A 8F DD 000D8 6$: PUSHL #131082 : 1710 
OC A3 9F OOODE 7$: PUSHAB : 1707 
55 DD 000E1 PUSHL R : 1706 
68 OA FB O00E3 CALLS #10, LIBS_CREMAPSEC : 1707 
64 50 DO 000E6 MOVL RO, PATSGC ERRCODE : 
OE 64 EB 000E9 BLBS §PATSGL_ERRTODE, 9$ ; 1731 
64 DD OO0EC PUSHL PATSGL= “ERRCODE : 1723 
7 D4 O00E CLRL. = (SP) : 
59 DD O00F PUSHL R9 : 
66 03 FB OOOF CALLS #3, LIBSSIGNAL : 
4 O00F RET > 1693 
65 Oc ad 7D 900F6 8$: MOVQ  12(R3), PATSGL_ISVADDR : 1730 
04 OOOFA 9$: RET a 37 
| 
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PATIHD 1 -1984 60:12: VAX=11 Bliss=32_ V4.0-742 
v04-000 PATSCREMAP == MAP SECTIONS 14- 1984 19:33:38 D1 SKSVMSMAS TER: CPATCH. SRCIJPATIHD. 832: _ ( 


; 770 1734 ! END OF MODULE 
; 771 1735 ; ELUDOM 


an 


Se 


4 
) 


-EXTRN LIBSSIGNAL 


"Y Used: 298 pages 
Compilation Complete 


; PSECT SUMMARY | 
: Name Bytes Attributes | 
> _PATSOWN NOVEC. WRT. RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) | ; 
F “PATSPLIT g NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) : 
3; =PATSCODE 1525 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, padded PE gb tl ts 3 
3 2 OB « 0 NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) : 
; Library Statistics 3 
a eee ce erie Symbols ------ om Pages Processing ; 
; File Total Loaded Percent Mapped Time : 
;  _$255$DUA28:CSYSLIBILIB.L32;1 18619 63 0 1000 00:01.9 ; 
: Information: 1 | : 
3 Warnings: 0 : 
: Errors: 0 : 
; COMMAND QUALIFIERS : 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /VARIANT:1/LIS=LIS$:PATIHD/OBJ=OBJ$:PATIHD MSRC$:PATIHD/UPDATE=(ENH$:PATIHD) ; 
: Size: 1523 0588 + 596 data bytes | ; 
; Run “Time : 
5 Elapsed Time: : 
3; Lines/CPU M 33 a5" $ 
3 bone tru-nie: 35254 : 


= E | 


TARY | 


4 AH-BT13A-SE = —~—~—~—sS*ODIGITAL EQUIPMENT CORPOR 
SV AXZVMS V4.0 t CONFIDENTIAL AND PROPRIE 


